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A CLOCK 


DECUS fVogram Library Write-up 


DECUS NO. 8-521 


ABSTRACT: 

This demonstration program will display a clock on 
the oscylloscope of an AX08 A/D-converter. After 
setting the clock, the running clock will displayed 
on the oscylloscope. There are possibilities to 
regulate the clock during running. 


REQUIREMENTS: 

Storage: This program occupies the locations 
0- -.2, 10, 20. ..57, 200... 1145. 

The data are in locations 1146. ..4347 
Equipment: PDP-8/l or PDP-8/E with an AX08 
A/D-converter and ASR-33 teletype 
(LAB-8 System) 


LOADING PROCEDURE: 

Load the binary tape into field 0 with the BIN-Loader. 
Turn on the teletype and the oscylloscope of AX08. 












WORKING OF PROGRAM: 


1. After loading, start the program at location 0200. 

The teletype will type a carriage-return, the oscyl- 
loscope will display the face of the clock, 
the hands of the clock will be at 12. 


2. Type the hours on the keyboard-reader 

(00, 01,... , 11). If the input is correct, it will 
be typed on the teletype. 

3. Type the minutes on the keyboard-reader (00, 01,... , 59). 
If the input is correct, it will be typed on the teletype. 
During this operations the clock face will be displayed 

on the oscylloscope, it will show the time. 

4. If you type any sign on the keyboard-reader, the 
clock will run (controlled by the crystal-clock 
of the AX08) and display the correct time on the 
oscyl loscope. 

5. While the clock is running there are two 
possibilities of input: 


M 

S 


minute hand 
second hand 
second hand 


one minute foward 
to 12 
to 12 
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/ KLAUS LI CKTEIG 
/ INSTITUT FUER KERNTECHNIK 
/ TECHNISCHE UN I VERSI T AET BERLIN 
/ MARCHSTRASSE 18 
/ 1000 BERLIN 10 
/ GERMANY 


/ PROGRAMS DISPLAY A CLOCK ON THE OSCYLLOSCOPE 


/ EQUIPMENT 
/ 

/ 


PDP-8 
AX 08 

OSCYLLOSCOPE 


/ STORAGE: FOR PROGRAM: 1, 2, 1 0, 20. . . 57, 200. . . 1 145 
/ FOR DATA: 1146... 4347 


/ LOADING PROCEDURE 

/ LOAD THE BINARY-TAPE AND START THE PROGRAM AT LOCATION 0200. 

/ THE TELETYPE WILL TYPE A CARRI AGE-RETURN.. THE OSCYLLOSCOPE 
/ WILL DISPLAY THE FACE OF THE CLOCK, THE HANDS OF THE CLOCK 
/ WILL BE AT 12. 

/ WORKING OF PROGRAM 

/ TYPE THE HOURS ON KEYBOARD-READER ( 00, 0 1 , . . . , 1 1 ) , IF THE 
/ INPUT IS CORRECT, IT WILL BE TYPED ON THE TELETYPE. THEN 
/ TYPE THE MINUTES ON KEY BOARD-READER ( 00, 0 1, . . . , 59 ) , IF THE 
/ INPUT IS CORRECT IT WILL BE TYPED ON THE TELETYPE. DURING 
/ THE INPUT THE CLOCK FACE WILL BE DISPLAYED ON THE OSCYLLOSCOPE 
/ IT WILL SHOW THE TIME. 

/ AFTER THE INPUT OF HOURS AND MINUTES THE CLOCK WILL RUN 
/ (CONTROLLED BY THE CRYSTAL-CLOCK OF THE AX 08), IF YOU TYPE 
/ ANY SIGN ON THE KEYBOARD. 

/ DURING RUNNING THERE ARE TWO POSSIBILITIES OF INPUT: 

/ M ONE MINUTE FORWARD AND SECONDS TO 12 

/ S SECONDS TO 12 


3 







/ SPECIFICATION FOR THE AX0S 


CLXK = 6352 
3<XK = 632 1 
0TEN=6 344 
DX C= e>30 1 
LXL= 6302 
1XC=63 1 1 
DTL = 63 12 
DI S=6 3 14 


Page f 


* 1 


JMP I .+ 1 / POINTER TO THE 

INTER / / INTERRUPT ROUTINE 


*20 


START, 

I OUT 

POINTER, 

0 

M60, 

-74 

C74, 

1 12 

CNT, 

-3420 

-3 

M14, 

- 14 

SECOND, 

0 

MINUTE, 

0 

HOURE, 

0 

DI SS, 

0 

DI SM, 

0 

DI SH, 

0 

LOW, 

0 

HIGH, 

0 

MIN 6 0, 

0 

Ml 5, 

- 17 


-20 

SEC 15, 

0 

MIN 15, 

0 

HOU15, 

0 

X, 

0 

Y, 

0 

QUAD SEC, 

0 

XS, 

0 

YS, 

0 

QUADMIN, 

0 

XM, 

0 

YM, 

0 

QUADH, 

0 

XH, 

0 

YH, 

0 


/ IOUT+1 IS START OF DATA 
/ INEW+480 
/ -60 
/ 74 

/ - 10.000 

/ - 12 


/ - 15 
/ - 16 
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/ PROGRAM-START AT START ADRESS 0200 
*200 


JMP I .+1 
GO 


/ POINTER TO THE 
/ / PROGRAM-START 


/ INTERRUPT-ROUTINE 


INTER, SKXK / 

JMP NOCRYS / 

CLXK / 

ISZ LOW 
JMP GOON20 

I SZ HIGH / 

JMP GOON20 / 

DCA SAV 
TAD CHECK 

SNA CLA / 

HLT / 

TAD SAV / 

JMS SAVE / 

JMS NEW / 

I SZ SECOND / 

SKP / 

JMP GOON6 / 

JMS I .+ 1 / 

NEWSEC / 

JMP G00N9 / 

G00N6, JMS ZERO SEC / 

ISZ MIN60 / 

JMP G00N8 / 

TAD M60 / 

DCA MIN60 / 

TAD M 15+ 1 
DCA MIN 15 

DCA OUADMIN / 

DCA XM 

DCA YM 

TAD M 14 

DCA MINUTE 

TAD POINTER / 

DCA DISM / 

ISZ HOURE / 

JMP GO ON7 / 


INTERRUPT FROM CRY STAL- CLOCK ? 
NO: FROM TTY-INPUT 

YES: CLEAR CRYSTAL-CLOCK FLAG 


10.000-TIMES INTERRUPT ? 
NO 


READY ? 

NO: ERROR 
YES 

SAVE CAC), (LINK),(0) 

SET COUNTER (- 10.000), ION 

SEC=SEC+ l-->60=0 ? 

NO 

YES: CHECK MINUTE 
NO: SET A NEW START OF 
/ THE SECONDS HAND 
/ OF THE CLOCK 

YES: 60 SECONDS 
60 MINUTES ? 

NO 

YES: 60 MINUTES 
SET A NEW COUNTER 


SET 1-ST QUARTER 


NEW START OF THE MINUTES 
/ HAND OF THE CLOCK 
HOURE=HOURE+l-->60=0 ? 

NO 
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SET A NEW COUNTER 


G00N7 * 

G00N8, 


G00N9, 

GOON20, 

NO CRY S* 


TAD M60 

DCA HOURE 

TAD M15+1 

DCA H0U15 

/ 

DCA QUADH 

/ 

DCA XH 

DCA YH 

TAD POINTER 

/ 

DCA DISH 

JMP G00N9 

/ 

JMS I .+1 

/ 

NEWHOU 

/ 

JMP G00N9 

/ 

JMS I .+1 

/ 

NEWMIN 

/ 

ISZ MINUTE 

/ 

JMP G00N9 

/ 

TAD M1A 

/ 

DCA MINUTE 

JMS I .+1 

/ 

NEWHOU 

I SZ HOURE 

/ 

CL A CLL 

I OF 

/ 

CM A 

DCA CHECK 

TAD ZERO 

/ 

DCA 0 

TAD SAVEL 

/ 

RAL 

/ 

TAD SAVE 

/ 

I ON 

/ 

JMP I 0 

/ 

DCA SAV 

TAD CHECK 

/ 

SZA CL A 

/ 

JMP . + 5 

/ 

KRB 

/ 

CL A CLL 

/ 

TAD SAV 

/ 

JMP GOON20 

/ 


YESs 


SET 1-ST QUARTER 


NEW START OF THE HOURS 
/ HAND OF THE CLOCK 


SET START OF THE 

/ HOURS HAND OF 
/ THE CLOCK 

NEW START OF THE MINUTES 
/ HAMD OF THE CLOCK 
12 MINUTES = 1/5 HOURE ? 

NO 

YESs SET NEW COUNTER 

NEW START OF THE HOURS 
/ HAND OF THE CLOCK 


INTERRUPT OFF 

SET CHECK-LOCATION TO -1 

FETCH OLD C 0) 

FETCH OLD (LINK) 

FETCH OLD (AC) 

INTERRUPT ON 

RETURN: END OF ROUTINE 

SAVE (AC) 

READY FOR INPUT ? 

YES 

NO: CLEAR FLAG AND BUFFER 
IGNORE INPUT 
FETCH (AC) 

RETURN 
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TAD SAV 

/ 

YES: READY FOR INPUT 


JMS SAVE 

/ 

SAVE CAC),(LINK),<0) 


ION 

KRB 

TAD M3 15 

/ 

INTERRUPT ON 


SZ A 

/ 

WAS INPUT "M" ? 


JMP GOON 10 

/ 

NO 


JMS NEW 

/ 

YES: SET THE CLOCK ONE 


JMP GOON6 

/ 

MINUTE FOWARD 

GOON 10, 

TAD M6 

SZA CL A 

/ 

WAS INPUT "S M ? 


JMP GOON9 

/ 

NO 


JMS NEW 

/ 

YES 


JMS ZEROSEC 

JMP GOON9 

/ 

ZERO SECONDS 


/ SUBROUTINE TO SET THE 

SECONDS 

HAND OF 

the CLOCK TO ZERO 

ZERO SEC, HLT 





TAD 

M60 

/ 

SET NEW 

COUNTER C - 60) 

DCA 

SECOND 




TAD 

M 15+ 1 

/ 

C- 16) 


DCA 

SEC 15 




DCA 

QUADSEC 

/ 

SET 1- ST 

QUARTER 

DCA 

XS 




DCA 

YS 




TAD 

POINTER 

/ 

SET NEW 

START OF SECONDS 

DCA 

DI SS 

/ 

/ HAND OF THE CLOCK 

JMP 

I ZERO SEC 

/ 

RETURN: 

END OF SUBROUTINE 


/ SUBROUTINE TO SAVE THE CONTENTS OF ( AC), (LINK), C 0) 
/ AND TO SET THE CHECK-LOCATION TO ZERO 


SAVE, 

HLT 

DCA 

SAVEAC 

/ 

SAVE CAC) 


RAR 

DCA 

SAVEL 

/ 

SAVE (LINK) 


TAD 

DCA 

0 

ZERO 

/ 

SAVE (0) 


DCA 

CHECK 

/ 

CHECK-LOCATI ON=0 


JMP 

I SAVE 

/ 

RETURN: END OF SUBROUTINE 
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/ SUBROUTINE TO SET THE COUNTER (-10.000) AND 
/ TO TURN THE INTERRUPT ON 

NEW, HLT 

CL A CLL 

TAD CNT / SET COUNTER (- 

DCA LOW 
TAD CNT+ 1 
DCA HIGH 

ION / INTERRUPT ON 

,JMP I NEW / RETURN: END OF 


/ SYMBOLS 


M6, - 6 

M315, -315 

SAVEAC, 0 

SAVEL, 0 

SAV, 0 

ZERO, 0 

CHECK, 0 


/ SYMBOLS 


DIES, 

DI SPL 

IN, 

INPUT 

Ml 2, 

- 12 

CAR, 

CARRET 

CNT 1, 

0 

C2, 

2 

CAS 0, 

740 

C60, 

74 

C14, 

14 

IG00N5, 

GOON 5 


0 . 000 ) 


SUBROUTINE 
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/ START OF MAIN-PROGRAM 


GO, 


KCC 


/ 

CLEAR FLAGS 

TLS 


/ 

AND BUFFER 

RRB 




PCF 




CL A 

CLL 



JMS 

I CAR 

/ 

TYPE A CARRI AGE-RETURN 

TAD 

M 15+ 1 

/ 

SET COUNTER (-16) 

DCA 

MINIS 



TAD 

M 15+ 1 



DCA 

H0U15 



DCA 

QUADMIN 

/ 

SET 1-ST QUARTER 

DCA 

XM 



DCA 

YM 



DCA 

QUADH 



DCA 

XH 



DCA 

YH 



TAD 

START 

/ 

START OF CLOCK-FACE 

TAD 

CAS 0 



DCA 

POINTER 

/ 

START OF THE HANDS 

TAD 

POINTER 

/ 

/ OF THE CLOCK 

DCA 

DI SS 

/ 

SECOND = 12 

TAD 

POINTER 



DCA 

DI SM 

/ 

MINUTE = 12 

TAD 

POINTER 



DCA 

DI SH 

/ 

HOURE = 12 

JMS 

I DI ES 

/ 

DISPLAY ON OSC., INPUT ? 

JMS 

I IN 

/ 

YES: 1- ST INPUT OF HOURS 

-2 


/ 

ONLY 0, 1 

SPA 

SNA 

/ 

WAS INPUT ZERO ? 

JMP 

. +4 

/ 

YES 

CLL 

RAL 

* 

/ 

NO 

CLL 

CML RTL 



SKP 




CL A 

CLL 



DCA 

HOURE 



TAD 

HOURE 



SZ A 

CL A 

/ 

WAS IT ZERO ? 

JMP 

. + 3 

/ 

NO: INPUT WAS 1 

TAD 

M 12 

/ 

YES: INPUT WAS 0 

SKP 




CL A 

CLL CM A RAL 



DCA 

. + 3 

/ 

SET CHECK FOR 2-ND INPUT 


JMS I DIES / DISPLAY ON OSC., INPUT ? 
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GOON 1, 


GOON 2, 


i 


JMS 

I IN 

/ 

YES: 2-ND INPUT OF HOURS 

0 


/ 

ONLY 0, 1 OR 0, l, . . .,9 

TAD 

HOURE 



DCA 

HOURE 



TAD 

HOURE 

/ 

GET NUMBER OF HOURS 

CLL 

RTL 

/ 

/ AND MULTIPLY IT BY 5 

TAD 

HOURE 



DCA 

HOURE 

/ 

NUMBER OF 1/5 HOURS 

TAD 

HOURE 

/ 

SET COUNTER OF HOURS 

TAD 

M60 



DCA 

HOURE 



TAD 

C60 



TAD 

HOURE 



SNA 

CL A 

/ 

COUNTER OF HOURS C-60) ? 

JMP 

GOON 1 

/ 

YES 

TAD 

C60 

/ 

NO: SET START OF THE 

TAD 

HOURE 

/ 

/ HOURS HAND OF 

Cl A 


/ 

/ THE CLOCK 

DCA 

CNT 1 



JMS 

I .+ 1 



NEWHOU 



I SZ 

CNT 1 



JMP 

.-3 



JMS 

I CAR 

/ 

TYPE A CARRI AGE-RETURN 

JMS 

I DIES 

/ 

DISPLAY ON OSC., INPUT ? 

JMS 

I IN 

/ 

YES: 1- ST INPUT OF MINUTES 

-6 


/ 

ONLY 0, 1,..,,5 

SNA 


/ 

WAS INPUT ZERO ? 

JMP 

GO ON 2 

/ 

YES 

DCA 

MINUTE 

/ 

NO 

TAD 

MINUTE 



Cl A 




DCA 

CNT 1 

/ 

SET COUNTER 

TAD 

C2 

/ 

DECIMAL TO OCTAL CONVERSION 

I SZ 

CNT 1 



JMP 

• — 2 



DCA 

CNT 1 



TAD 

MINUTE 



CLL 

RAL 



RTL 




TAD 

CNT 1 



DCA 

MINUTE 

/ 

SET 1- ST INPUT OF MINUTES 

JMS 

I DIES 

/ 

DISPLAY ON OSC., INPUT ? 
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JMS I IN / 

- 12 / 

TAD MINUTE 
DCA MINUTE 

«JMS I CAR / 

TAD MINUTE 
TAD M60 

DCA MIN60 / 

TAD MINUTE / 

DCA CNT 1 / 

GOON 3, TAD CNT1 

TAD M14 

SPA / 

JMP G00N4 / 

DCA CNT 1 / 

JMS I .+1 / 

NEWHOU / 

I SZ HOURE / 

TAD MIA 
DCA XS 

JMS I .+1 / 

NEWMIN / 

I SZ X s / 

JMP .-3 
JMP GOON 3 

GOON4, DCA MINUTE / 

TAD C 14 
TAD MINUTE 

SNA CL A / 

JMP I IG00N5 / 

TAD C 14 / 

TAD MINUTE 
Cl A 

DCA XS 

JMS I .+1 / 

NEWMIN / 

I SZ X S / 

JMP .-3 

GOONS, TAD MM60 

DCA SECONDS / 

TAD M 15+ 1 / 

DCA SEC 15 

TAD QUADSEC / 

DCA XS 
DCA YS 


YES: 2-ND INPUT OF MINUTES 
ONLY 0, 1, . . ,,9 


TYPE A CARRIAGE-RETURN 


SET COUNTER OF MINUTES 
CORRECT THE HOURS HAND 
/ OF THE CLOCK 


ARE MINUTES > 12 ? 

NO 

YES 

CORRECT START OF THE 

/ HOURS HAND OF CLOCK 
CORRECT COUNTER OF HOURS 


SET START OF THE 

/ MINUTES HAND OF 
/THE CLOCK 


SET COUNTER OF MINUTES 


COUNTER OF MINUTES (-12) ? 

YES 

NO 

Page 3 

CORRECT START OF THE 
/ MINUTES HAND OF 
/ THE CLOCK 


SET COUNTER OF SECONDS (-60) 
SET COUNTER (-16) 

SET 1-ST QUARTER 
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TSF 

JMP I 
TCF 

JM S 01 SPL 
KRB 

CL A CLL CM A 

DC A I CHECK I 

CLXK 

SKXK 

JMP . -1 

CLXK 


JM S I I NEW 
TAD C400 
OTEN 


/ CLEAR FLAG 

/ DISPLAY ON OSC., INPUT ? 
/ YES 


/ SYNCHRONIZE THE 
/ / CRYSTAL-CLOCK 

/ SET COUNTER (- 10.000)5 ION 

/ INTERRUPT FROM CRYSTAL-CLOCK 


JMS DISPLAY 
JMP 1 


/ DISPLAY THE CLOCK 
/ /ON OSCYLLO SCOPE 




/ SUBROUTINE FOR AN INPUT OF 
/ TYPE IT ON TTY 

INPUT* HLT 
KRB 

OCA NUMBER 
TAD NUMBER 
TAD M260 
SPA 

JMP AGAIN 
TAD I INPUT 
SMA CL A 
JMP AGAIN, 

TAD NUMBER 
JMS OUTPUT 
TAD NUMBER 
AND M0017 
ISZ INPUT 
JMP I INPUT 

A3 AIN, CL A CLL CM A RAL 

TAD INPUT 
DCA INPUT 
JMP I INPUT 


A NUMBER. IF IT IS CORRECT, 

/ FETCH INPUT 

/ INPUT AGAIN 

/ WAS INPUT CORRECT ? 

/ NO: INPUT AGAIN 
/ YES 

/ PRINT IT ON TTY 

/ RETURN 
/ INPUT AGAIN 

/ RETURN: END OF SUBROUTINE 


/ SUBROUTINE FOR OUTPUT ON TTY 


OUTPUT, HLT 

TSF / READY ? 

JMP .-1 

TLS / YES: PRINT IT 

CLA CLL 

JMP I OUTPUT / RETURN: END OF SUBROUTINE 


/ SUBROUTINE TO DISPLAY THE CLOCK ON OSCYLLOSCQPE 
/ AND WAIT FOR INPUT FROM TTY 

DI SPL, HLT 

JMS DISPLAY 
KSF 

JMP .-2 
JMP I DI SPL 


/ DISPLAY ON OSC. 

/ ANY INPUT ? 

/ NO 

/ YES: RETURN: END OF SUBROUTINE 
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/ SUBROUTINE TO DISPLAY THE 

Di SPLAY, HLT 

TAD M 240 

DCA CNT10 

DCA X 

DCA Y 

TAD START 

JMS OSC 

TAD M37 

DCA CNT10 

TAD XS 

DCA X 

TAD YS 

DCA Y 

TAD DISS 

JMS OSC 

TAD M 34 

DCA CNT10 

TAD XM 

DCA X 

TAD YM 

DCA Y 

TAD DI SM 

JMS OSC 

TAD M25 

DCA CNTJ0 

TAD XH 

DCA X 

TAD YH 

DCA Y 

TAD DI SH 

JMS OSC 

JMP I DISPLAY 


CLOCK ON OSCYLLOSCOPE 


/ DISPLAY THE CLOCK-FACE 


/ DI SPLAY THE SECONDS HAND 
/ /OF THE CLOCK 


/ DISPLAY THE MINUTES HAND 
/ /OF THE CLOCK 


/ DISPLAY THE HOURS HAND 
/ /OF THE CLOCK 

/ RETURNS END OF SUBROUTINE 


/ SUBROUTINE TO DISPLAY POINTS ON OSCYLLOSCOPE 


OSC, 


HLT 


DCA 

10 

/ 

SET AUTO-INDEX REGISTER 

TAD 

X 



JMS 

QUAD 

/ 

WICH PART ? 

DXC 

DXL 



CL A 

CLL 



TAD 

v* 



JMS 

QUAD 

/ 

WICH PART ? 

DYC 

DYL DI S 

/ 

DISPLAY THE POINT 

CL A 

CLL 



I SZ 

CNT 10 



JMP 

OSC+2 



JMP 

I OSC 

/ 

RETURNS END OF SUBROUTINE 
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/ SUBROUTINE TO PREPARE DATAS FOR DISPLAY 

QUAD, HLT 

SNA CL A 
JMP . + 5 
TAD I 10 
Cl A 

TAD CIRCLE / X <-- 2*R-X 

JMP I QUAD / RETURN 

TAD I 10 /X <-- X 

JMP I QUAD / RETURN, END OF SUBROUTINE 


/ SYMBOLS 



NUMBER, 

0 


M260, 

-260 


M00 17, 

17 


C400, 

400 


M24 0, 

-360 

/ -24 0 

MM 60, 

-74 

/ -60 

CNT10, 

0 


Cl RCLE, 

233 

/ 155 

M37, 

-45 

/ -37 

M34, 

-42 

/ -34 

M25, 

-31 

/ -25 

INEW, 

NEW 


CHECKI, 

CHECK 



0 


15 




Page 4 


/ SUBROUTINE TO SET THE SECONDS HAND OF THE CLOCK 


HLT 

ISZ SEC 15 

/ 

ARE 

15 SECONDS ? 

JMP . + 6 

/ 

NO 


TAD M15 

/ 

YES: 

SET COUNTER C-15) 

DCA SEC 15 

ISZ QUADSEC 

/ 

SET 

NEW QUARTER 

JMS QUADP 

/ 


/AND SET LOCATION 

QUADSEC 

/ 


/ XS AND YS 

JMS QUADIS 

/ 

SET 

THE START OF THE 

QUADSEC 

/ 


/ SECONDS HAND OF 

DI SS 

/ 


/ THE CLOCK 

I SZ NEWSEC 




JMP I NEWSEC 

/ 

RETURN* END OF SUBROUTINE 


/ SUBROUTINE TO SET THE MINUTES HAND OF THE CLOCK 


NEWMIN* HLT 

ISZ MIN 15 
.JMP . + 6 

TAD M15 
DCA MIN 15 
I SZ QUADMIN 
JMS QUADP 
QUADMIN 

JMS OUADI S 
QUADMIN 
DI SM 

I SZ NEWMIN 
JMP I NEWMIN 


/ 15 MINUTES ? 

/ NO 

/ YES* SET COUNTER C-15) 

/ SET THE NEW QUARTER 
/ /AND SET LOCATION 

/ /KM AND YM 

/ SET THE START OF THE 
/ / MINUTES HAND OF 

/ / THE CLOCK 

/ RETURN* END OF SUBROUTINE 
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/ SUBROUTINE TO SET THE HOURS HAND OF THE CLOCK 


NEWHOU, HLT 




ISZ H0U15 

/ 

ARE 

3 HOURS ? 

JMP . + 6 

/ 

NO 


TAD M15 

/ 

YES 


DCA H0U15 

/ 

SET 

COUNTER C- 15) 

ISZ QUADH 

/ 

SET 

THE NEW QUARTER 

JMS QUADP 

/ 


/ AND SET THE LOCATION 

QUADH 

/ 


/ XH AND YH 

JM S QUADIS 

/ 

SET 

THE START OF THE 

QUADH 

/ 


/ HOURS HAND OF 

DI SH 

/ 


/ THE CLOCK 

ISZ NEWHOU 




JMP I NEWHOU 

/ 

RETURN* END OF SUBROUTINE 


/ SUBROUTINE TO SET THE NEW QUARTER OF THE CLOCK 


QUADP, 

HLT 






TAD 

I QUADP 





I SZ 

QUADP 





DCA 

QUA 1 

/ 

FETCH SEC* MIN 

OR HOURS 


TAD 

I QUA1 

/ 

SET THE WAY OF 



TAD 

. + 4 

/ 

/ THE SUBROUTINE 


DCA 

.+4 





I SZ 

QUA 1 





SKP 






JMP 

• 1 





0000 





JMP 

QUAD 2 

/ 

2-ND QUARTER 



JMP 

QUAD 3 

/ 

3- RD 



JMP 

QUAD4 

/ 

4-TH 


QUAD 2, 

DCA 

I QUA1 

/ 

X <— X 



I SZ 

QUA1 





CL A 

CM A 





DCA 

I QUA 1 

/ 

Y <-- 2*R-Y 



JMP 

I QUADP 




QUAD 3, 

CL A 

CM A 





DCA 

I QUA 1 

/ 

X <-- 2* R-X 



I SZ 

QUA 1 





CL A 

CM A 





DCA 

I QUA 1 

/ 

Y <-- 2*R-Y 



JMP 

I QUADP 




QUAD4, 

CL A 

CM A 





DCA 

I QUA1 

/ 

X <-- 2* R-X 



I SZ 

QUA 1 





DCA 

I QUA1 

/ 

Y <-- Y 



JMP 

I QUADP 

/ 

RETURN, END OF 

SUBROUTINE 
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/ SUBROUTINE TO SET THE START OF THE HAND OF THE CLOCK 


QUAD I S, 


QUAD!, 


HLT 




TAD 

I QUADI S 

/ 

FETCH THE QUARTER 

I SZ 

QUADI S 



DCA 

QUA 1 



TAD 

I QUADI S 

/ 

FETCH THE START OF THE 

I SZ 

QUADIS 

/ 

/ HAND OF THE CLOCK 

DCA 

QUA2 



TAD 

I QUA 1 

/ 

SET THE WAY OF SUBROUTINE 

TAD 

. + 5 



DCA 

. + 5 



I SZ 

QUA 1 



TAD 

C74 



SKP 




JMP 

• + 2 



0000 



JMP 

QUADI 

/ 

1-ST QUARTER 

JMP 

QUADI-1 

/ 

2-ND 

JMP 

QUADI 

/ 

3- RD •• 

Cl A 


/ 

4-TH 

TAD 

I QUA2 



DCA 

I QUA2 



JMP 

I QUAD! S 

/ 

RETURN, END OF SUBROUTINE 


/ SUBROUTINE TO TYPE A CARRI AGE-RETURN ON TTY 

CARRET, HLT 

TAD C215 
JMS I I OUT 
TAD C212 
JMS I I OUT 

JMP I CARRET / RETURN: END OF SUBROUTINE 


/ SYMBOLS 

QUA1, 0 

QUA2, 0 

C2 12, 212 

C2 15, 215 

I OUT., OUTPUT 


/ START OF DATA BUFFER 
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The data buffer contains the data of the x- and y-coordinates for the 
oscylloscope of the AX08 A/D-con verter, i. e. the coordinates for 
both the face and the hands of the clock. The coordinates are those of 
the hands of the clock showing 60, I, 2, .... , 15 seconds. The coordi¬ 
nates of the hands showing 16, 17, ... , 59 seconds will be calculated 
by the program from the above data. 
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